home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / club1.d64 / wedge 64 instruc (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  10KB  |  259 lines
  1. 10 POKE53281,12:POKE53280,12:PRINTCHR$(14)
  2. 15 POKE198,.:PRINT"[144][147]S[146]CREEN OR P[146]RINTER (S/P)?"
  3. 16 WAIT198,1:PRINT"[147]";:GETP$:IFP$="P"THENOPEN4,4,4
  4. 20 FORI=1TO22
  5. 30 READA$
  6. 40 IFA$="[157]"THENGOSUB80:END
  7. 50 PRINTA$:IFP$="P"THENPRINT#4,A$
  8. 60 NEXT
  9. 70 GOSUB80:GOTO20
  10. 80 PRINT"      PRESS A KEY TO CONTINUE[146]";
  11. 90 GETB$:IFB$=""THEN90
  12. 100 PRINT"[147]":RETURN
  13. 10000 DATA"       [215][197][196][199][197] 64 [201][206][211][212][210][213][195][212][201][207][206][211]
  14. 10010 [131]"     (null)REPARED BY ASCRED (null)AYBERGER
  15. 10020 DATA"         [196]ECEMBER 4, 1984
  16. 10030 [131]"
  17. 10040 DATA"[204][207][193][196] [215][201][212][200]:               [193][195][212][201][214][193][212][197] [215][201][212][200]:
  18. 10060 [131]"
  19. 10070 DATA"[204][207][193][196]'[215][197][196][199][197]-64-$7000.[195]',8,1  [211][217][211]7*4096
  20. 10080 [131]"(null)(null)ATNSTR$'(null)VALSTR$CHR$VAL-64-$8000.LEN',8,1  (null)(null)(null)8*4096
  21. 10090 DATA"[204][207][193][196]'[215][197][196][199][197]-64-$9000.[195]',8,1  [211][217][211]9*4096
  22. 10100 [131]"(null)(null)ATNSTR$'(null)VALSTR$CHR$VAL-64-$LEN000.LEN',8,1  (null)(null)(null)12*4096
  23. 10110 DATA"
  24. 10120 [131]"            LEN(null)(null)(null)ATN(null)STR$(null)
  25. 10130 DATA"
  26. 10140 [131]"(null)(null)(null)(null)ATN(null)                VAL(null)ATN(null)(null)(null)VAL/LEN(null)(null)(null)VAL(null)(null)(null)
  27. 10150 DATA"
  28. 10160 [131]">ATNSTR$MID$(null)(null)(null)                LENOLOR PEEKAR FOR   
  29. 10170 DATA"                       ADJUSTING TV/
  30. 10180 [131]"                       MONITOR
  31. 10190 DATA"
  32. 10200 [131]">ATN(null)(null)(null) RIGHT$NCREMENT#       >AUTO10 WILL    
  33. 10210 DATA"                       GIVE LINE
  34. 10220 [131]"                       NUMBERS
  35. 10230 DATA"                       INCREMENTED
  36. 10240 [131]"                       BY 10 FOLLOWING
  37. 10250 DATA"                       THE ENTRY OF A
  38. 10260 [131]"                       LINE NUMBER
  39. 10270 DATA"                       WITH A BASIC
  40. 10280 [131]"                       COMMAND.  RIGHT$T IS
  41. 10290 DATA"                       TERMINATED
  42. 10300 [131]"                       BY ENTERING ATN(null)(null)(null)
  43. 10310 DATA"                       WITHOUT A
  44. 10320 [131]"                       INCREMENT#.
  45. 10330 DATA"
  46. 10340 [131]">LEN(null)(null)STR$                  (null)AME AS (null)(null)(null)64738
  47. 10350 DATA"                       [212]HE [215]EDGE CAN BE
  48. 10360 [131]"                       REACTIVATED WITH
  49. 10370 DATA"                       THE APPROPRIATE
  50. 10380 [131]"                       (null)(null)(null) COMMAND (7,
  51. 10390 DATA"                       8,9,OR12*4096)
  52. 10400 [131]"
  53. 10410 DATA">[195][207][204][207][213][210]#,#,#           1ST # = [207]UTSIDE 
  54. 10420 [131]"                       BOADER COLOR
  55. 10430 DATA"                       2ND # = [211]CREEN
  56. 10440 [131]"                       BACKGROUND COLOR
  57. 10450 DATA"                       3RD # = [195]URSOR
  58. 10460 [131]"                       COLOR
  59. 10470 DATA"
  60. 10480 [131]">STR$VAL(null) LINE# RANGE       >DEL-100 WILL   
  61. 10490 DATA"                       DELETE ALL LINES
  62. 10500 [131]"                       UP TO AND
  63. 10510 DATA"                       INCLUDING LINE
  64. 10520 [131]"                       100.
  65. 10530 DATA"                       >DEL100-200 WILL
  66. 10540 [131]"                       DELETE LINES 100
  67. 10550 DATA"                       THROUGH AND
  68. 10560 [131]"                       INCLUDING LINE
  69. 10570 DATA"                       200.
  70. 10580 [131]"                       >DEL200- WILL
  71. 10590 DATA"                       DELETE LINES 200
  72. 10600 [131]"                       THROUGH THE LAST
  73. 10610 DATA"                       PROGRAM LINE.
  74. 10620 [131]"
  75. 10630 DATA">[196][211]                    [210]EADS THE DISK  
  76. 10640 [131]"                       ERROR CHANNEL
  77. 10650 DATA"                       AND DISPLAYS
  78. 10660 [131]"                       ITS STATUS.
  79. 10670 DATA"
  80. 10680 [131]">LEFT$VAL(null)(null)                  (null)ROVIDES A LIST 
  81. 10690 DATA"                       OF COMMANDS
  82. 10700 [131]"                       AVAILABLE.
  83. 10710 DATA"
  84. 10720 [131]">LEFT$VAL(null) #(STR$EC OR $LEFT$EX)    >HEX49152 WILL  
  85. 10730 DATA"                       GIVE THE [200]EX
  86. 10740 [131]"                       EQIVALENT
  87. 10750 DATA"                       ($C000).
  88. 10760 [131]"                       >HEX$C000 WILL  
  89. 10770 DATA"                       GIVE THE [196]ECIMAL
  90. 10780 [131]"                       EQIVALENT
  91. 10790 DATA"
  92. 10800 [131]">LEFT$(null)(null)(null)/CMD/,LINE RANGE  >HUNT/POKE/ WILL
  93. 10810 DATA"                       LIST EVERY LINE
  94. 10820 [131]"                       WHERE A 'POKE'
  95. 10830 DATA"                       COMMAND OCCURS
  96. 10840 [131]"                       WITHIN YOUR
  97. 10850 DATA"                       PROGRAM.
  98. 10860 [131]"                                       
  99. 10870 DATA">HUNT/POKE/,200-400    WILL LIST EVERY 
  100. 10880 [131]"                       LINE BETWEEN 200
  101. 10890 DATA"                       AND 400 THAT HAS
  102. 10900 [131]"                       A 'POKE' COMMAND
  103. 10910 DATA"                       IN IT.
  104. 10920 [131]">LEFT$(null)(null)(null)'STRING',LN RANGE >HUNT'RIGHT$(null)' WILL  
  105. 10930 DATA"                       FIND AND DISPLAY
  106. 10940 [131]"                       EVERY LINE
  107. 10950 DATA"                       CONTAINING THE
  108. 10960 [131]"                       LETTERS 'IT'(EG
  109. 10970 DATA"                       IT, EXIT, ETC)
  110. 10980 [131]"
  111. 10990 DATA">[204][207][207][203]                  [212]HIS COMMAND    
  112. 11000 [131]"                       PROVIDS A LIST
  113. 11010 DATA"                       OF PROGRAM
  114. 11020 [131]"                       VARIABLES AND
  115. 11030 DATA"                       THEIR CURRENT
  116. 11040 [131]"                       VALUES.  (null)NLY
  117. 11050 DATA"                       VARIABLES THAT
  118. 11060 [131]"                       HAVE BEEN
  119. 11070 DATA"                       DEFINED (USED)
  120. 11080 [131]"                       ARE DISPLAYED.
  121. 11090 DATA"                       [212]HE VAIABLES ARE
  122. 11100 [131]"                       PRINTED IN SUCH
  123. 11110 DATA"                       A WAY THAT THEY
  124. 11120 [131]"                       CAN BE EDITED
  125. 11130 DATA"                       WITH THE SCREEN
  126. 11140 [131]"                       EDITOR SO THAT A
  127. 11150 DATA"                       PROGRAM CAN BE
  128. 11160 [131]"                       STOPPED, EDITED
  129. 11170 DATA"                       TO NEW VALUES,
  130. 11180 [131]"                       AND THE 'LEN(null)(null)(null)'
  131. 11190 DATA"                       COMMAND GIVEN TO
  132. 11200 [131]"                       CONTINUE THE
  133. 11210 DATA"                       PROGRAM WITH THE
  134. 11220 [131]"                       NEW VALUES.
  135. 11230 DATA"
  136. 11240 [131]">(null)VAL(null)                   ??? RIGHT$ HAVE NOT  
  137. 11250 DATA"                       BEEN ABLE TO GET
  138. 11260 [131]"                       THIS TO WORK.
  139. 11270 DATA"
  140. 11280 [131]">(null)VAL(null)CHR$VAL'FILENAME'       >MERGE'SETUP'   
  141. 11290 DATA"                       WILL MERGE THE
  142. 11300 [131]"                       PROGRAM 'SETUP'
  143. 11310 DATA"                       CONTAINED ON THE
  144. 11320 [131]"                       DISK WITH THE
  145. 11330 DATA"                       PROGRAM YOU
  146. 11340 [131]"                       HAVE IN THE
  147. 11350 DATA"                       COMPUTER'S
  148. 11360 [131]"                       MEMORY.
  149. 11370 DATA"
  150. 11380 [131]">(null)                     1ST ROUND       
  151. 11390 DATA">[206]'FILENAME'           2ND ROUND
  152. 11410 [131]"                       >(null) WILL PRINT
  153. 11420 DATA"                       FILENAME(OR LAST
  154. 11430 [131]"                       VARIABLE HUNTED
  155. 11440 DATA"                       FOR) TO THE
  156. 11450 [131]"                       SCREEN WITHIN ''
  157. 11460 DATA"                       AND FOLLOWED BY
  158. 11470 [131]"                       ,8. RIGHT$T CAN THEN
  159. 11480 DATA"                       BE USED FOR
  160. 11490 [131]"                       SAVING/LOADING
  161. 11500 DATA"                       THE FILEMAME.
  162. 11510 [131]"
  163. 11520 DATA">[207][198][198]                   [196]IACTIVATES THE 
  164. 11530 [131]"                       (null)EDGE PROGRAM.
  165. 11540 DATA"
  166. 11550 [131]">(null)VAL(null)(null)(null) ST#,INC#,RANGE  >RENUM10,10 WILL
  167. 11560 DATA"                       RENUMBER THE
  168. 11570 [131]"                       ENTIRE PROGRAM
  169. 11580 DATA"                       STARTING WITH
  170. 11590 [131]"                       LINE 10 AND
  171. 11600 DATA"                       INCREMENTED BY
  172. 11610 [131]"                       10.
  173. 11620 DATA"                       
  174. 11630 [131]">RENUM150,2,100-200    WILL RENUMBER   
  175. 11640 DATA"                       LINE 100
  176. 11650 [131]"                       THRU 200
  177. 11660 DATA"                       STARTING WITH
  178. 11670 [131]"                       150 AND
  179. 11680 DATA"                       INCREMENTED
  180. 11690 [131]"                       BY 2
  181. 11700 DATA"
  182. 11710 [131]">(null)ATN(null)VAL'FILENAME'        >SAVE'TEST  WILL
  183. 11720 DATA"                       SAVE A FILE
  184. 11730 [131]"                       NAMED 'TEST' AND
  185. 11740 DATA"                       DISPLAY THE
  186. 11750 [131]"                       ERROR CHANNEL
  187. 11760 DATA"                       READING.
  188. 11770 [131]"                       >SAVE'@0:TEST   
  189. 11780 DATA"                       WILL DO A SAVE
  190. 11790 [131]"                       AND REPLACE OF
  191. 11800 DATA"                       THE FILE NAMED
  192. 11810 [131]"                       'TEST' AND
  193. 11820 DATA"                       DISPLAY THE
  194. 11830 [131]"                       ERROR CHANNEL
  195. 11840 DATA"                       READING.
  196. 11850 [131]"
  197. 11860 DATA">[211][197][206][196]'DISK COMMAND     >SEND'S0:TEST   
  198. 11870 [131]"                       WILL SCRATCH THE
  199. 11880 DATA"                       FILE NAMED
  200. 11890 [131]"                       'TEST' FROM THE
  201. 11900 DATA"                       DISK.
  202. 11910 [131]"                       >SEND'N0:FIVE,GG
  203. 11920 DATA"                       WILL FORMAT A
  204. 11930 [131]"                       DISKETTE AND
  205. 11940 DATA"                       IDENTIFY IT AS
  206. 11950 [131]"                       'FIVE' WITH A
  207. 11960 DATA"                       DISK ID OF 'GG'
  208. 11970 [131]"                       >SEND'(null)0:NEW=OLD
  209. 11980 DATA"                       WILL CHANGE THE
  210. 11990 [131]"                       NAME OF A
  211. 12000 DATA"                       FILE FROM 'OLD'
  212. 12010 [131]"                       TO 'NEW'.
  213. 12020 DATA"                       [193]NY OF THE 1541 
  214. 12030 [131]"                       DISK COMMANDS
  215. 12040 DATA"                       CAN BE SENT
  216. 12050 [131]"                       USING THE >SEND
  217. 12060 DATA"                       COMMAND. [211]EE
  218. 12070 [131]"                       YOUR MANUAL
  219. 12080 DATA"                       OTHER COMMANDS.
  220. 12090 [131]"
  221. 12100 DATA">[211][212][193][210][212]'FILENAME        >START'PLAYBALL 
  222. 12110 [131]"                       WILL GIVE YOU
  223. 12120 DATA"                       THE STARTING
  224. 12130 [131]"                       ADDRESS IN LEFT$EX
  225. 12140 DATA"                       AND [196]ECIMAL FOR
  226. 12150 [131]"                       THE PROGRAM
  227. 12160 DATA"                       CALLED
  228. 12170 [131]"                       'PLAYBALL'
  229. 12180 DATA"
  230. 12190 [131]">$                     (null)RINTS THE DISK 
  231. 12200 DATA"                       DIRECTORY TO THE
  232. 12210 [131]"                       SCREEN WITHOUT
  233. 12220 DATA"                       DESTORYING ANY
  234. 12230 [131]"                       PROGRAM RESIDING
  235. 12240 DATA"                       IN MEMORY. [212]HE
  236. 12250 [131]"                       '?' AND '*' CAN
  237. 12260 DATA"                       BE USED WITH THE
  238. 12270 [131]"                       COMMAND FOR
  239. 12280 DATA"                       PATTERN
  240. 12290 [131]"                       MATCHING.
  241. 12300 DATA"
  242. 12310 [131]">/'FILENAME            >/'MLX  WILL    
  243. 12320 DATA"                       LOAD A PROGRAM
  244. 12330 [131]"                       CALLED 'MLX'.
  245. 12340 DATA"                       
  246. 12350 [131]">/'SETUP':SHIFTED RUN/STOP   WILL LOAD
  247. 12360 DATA"                             AND RUN A 
  248. 12370 [131]"                             BASIC
  249. 12380 DATA"                             PROGAM.
  250. 12385 [131]"
  251. 12390 DATA"                       [205][204] PROGRAMS WILL
  252. 12400 [131]"                       BE LOADED TO
  253. 12410 DATA"                       THEIR PROPER
  254. 12420 [131]"                       LOAD ADDRESS
  255. 12430 DATA"                       USING THIS
  256. 12440 [131]"                       COMMAND.
  257. 12450 DATA"
  258. 12460 [131]"CMD
  259.